home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
scratch.c64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
257b
|
15 lines
10 PRINT"[147]"
20 PRINT:PRINT"WOULD YOU LIKE TO SCRATCH A FILE (Y/N)?"
30 GET A$
40 IF A$="Y" THEN 80
50 IF A$<>"N" THEN 30
60 PRINT:PRINT"BYE."
70 END
80 INPUT"FILE TO BE SCRATCHED";F$
90 OPEN 15,8,15
100 PRINT#15,"S0:";F$
110 INPUT#15,E,E$,F
120 CLOSE 15
130 PRINT:PRINT F;E$
140 GOTO 20